home *** CD-ROM | disk | FTP | other *** search
/ Ancient Asian Sex Secrets / Ancient Asian Sex Secrets.iso / mac / EROSPROM.Dxr / 00219.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  615 b   |  33 lines
  1. on startMovie
  2.   global fixpal
  3.   if the machineType = 256 then
  4.     exit
  5.   else
  6.     openXLib("FixPalette.XObj")
  7.     set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
  8.   end if
  9. end
  10.  
  11. on patchpal
  12.   global fixpal
  13.   if the machineType = 256 then
  14.     exit
  15.   else
  16.     fixpal(mPatchIt)
  17.     set the visible of sprite 1 to 0
  18.     set the visible of sprite 1 to 1
  19.   end if
  20. end
  21.  
  22. on stopMovie
  23.   global fixpal
  24.   if the machineType = 256 then
  25.     exit
  26.   else
  27.     set fixpal to FixPalette(mnew, 0, 0, 0, 0)
  28.     fixpal(mPatchIt)
  29.     fixpal(mdispose)
  30.     closeXLib("FixPalette.XObj")
  31.   end if
  32. end
  33.